home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 265 (1993-12-10)(Manewaldt, A.)(DE)(PD)(Disk 2 of 3).zip / Taifun 265 (1993-12-10)(Manewaldt, A.)(DE)(PD)(Disk 2 of 3).adf / InSeenot_Install / InSeenot_Install.amosSourceCode
AMOS Source Code  |  1993-04-25  |  2KB  |  121 lines
  1. Screen Open 0,640,512,2,Hires
  2. Input "Bitte den Devicenamen der Festplatte eingeben. (z.b.: `Dh0:`) : ";WEG$
  3. Mkdir WEG$+"In_Seenot"
  4. Open In 1,"install_disk:ordner"
  5. ENGTH1=Lof(1)
  6. Close 1
  7. Reserve As Work 1,ENGTH1
  8. Bload "install_disk:ordner",1
  9. Bsave WEG$+"In_Seenot.info",Start(1) To Start(1)+ENGTH1
  10. Erase 1
  11. Cls 
  12. Print "Zus�tzlich zum Hauptprogramm m��en auf der Festplatte dir Ordner Libs -"
  13. Print "L - Devs von der Workbench installiert sein. Aber ich gehe mal davon aus"
  14. Print "da� das der Fall sein wird."
  15. Print 
  16. Print "Weiterhin mu� der Amos_System Ordner Version 1.34 auf der Festplatte"
  17. Print "installiert sein. "
  18. Print 
  19. Print "Amos Ordner installieren? (j/n)"
  20. Curs Off 
  21. IN:
  22. Do 
  23. A$=Inkey$
  24. If A$<>"" Then Goto OUT
  25. Loop 
  26. OUT:
  27. A$=Upper$(A$)
  28. If A$="J" Then Goto AMOS_SYSTEM
  29. If A$="N" Then Goto WEITER
  30. Goto IN
  31. AMOS_SYSTEM:
  32. Mkdir WEG$+"Amos_system"
  33. WAY$=WEG$+"Amos_system/"
  34. FROM$="In_Seenot...:Amos_System/"
  35. X=11
  36. FILE$="compact.lib"
  37. Gosub LADCOP
  38. FILE$="compiler.lib"
  39. Gosub LADCOP
  40. FILE$="default.font"
  41. Gosub LADCOP
  42. FILE$="default.key"
  43. Gosub LADCOP
  44. FILE$="mouse.abk"
  45. Gosub LADCOP
  46. FILE$="music.lib"
  47. Gosub LADCOP
  48. FILE$="ramos1_3.env"
  49. Gosub LADCOP
  50. FILE$="request.lib"
  51. Gosub LADCOP
  52. FILE$="serial.lib"
  53. Gosub LADCOP
  54. FILE$="w.clib"
  55. Gosub LADCOP
  56. FILE$="w.lib"
  57. Gosub LADCOP
  58. Wait 10
  59. Goto WEITER
  60. LADCOP:
  61. A=A+1
  62. Open In 1,FROM$+FILE$
  63. ENGTH1=Lof(1)
  64. Close 1
  65. Reserve As Work 1,ENGTH1
  66. Bload FROM$+FILE$,1
  67. Bsave WAY$+FILE$,Start(1) To Start(1)+ENGTH1
  68. AL=A*100
  69. AL=AL/X
  70. Print At(0,20);AL;"% kopiert!"
  71. Erase 1
  72. Return 
  73. WEITER:
  74. Cls 
  75. Print "Bitte eine Taste dr�cken um das Hauptprogramm zu installieren!"
  76. Print "Abbruch mit Ctrl+C"
  77. Wait Key 
  78. WAY$=WEG$+"In_Seenot/"
  79. FROM$="In_Seenot...:"
  80. A=0
  81. X=455
  82. FILE$="Flag"
  83. Gosub LADCOP
  84. FILE$="InSeenot..."
  85. Gosub LADCOP
  86. FILE$="InSeenot....info"
  87. Gosub LADCOP
  88. FILE$="InSeenot...Anleitung"
  89. Gosub LADCOP
  90. FILE$="InSeenot...Anleitung.info"
  91. Gosub LADCOP
  92. FILE$="QView"
  93. Gosub LADCOP
  94. FILE$="Ramos1.34"
  95. Gosub LADCOP
  96. Mkdir WAY$+"daten"
  97. WAY$=WAY$+"daten/"
  98. FROM$=FROM$+"daten/"
  99. For I=0 To 445
  100. ST$=Str$(I)-" "
  101. Open In 1,FROM$+ST$
  102. Input #1,T
  103. Input #1,A$
  104. Close 1
  105. Open Out 1,WAY$+ST$
  106. Print #1,T
  107. Print #1,A$
  108. Close 1
  109. A=A+1
  110. AL=A*100
  111. AL=AL/X
  112. Print At(0,20);AL;"% kopiert!"
  113. Next I
  114. FILE$="ScreeN"
  115. Gosub LADCOP
  116. BYE:
  117. Wait 10
  118. Cls 
  119. Print "Fertig! Beenden mit einer Taste..."
  120. Wait Key 
  121. End